home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jun.arc / FRACTAL.ARC / WHITE.BAS < prev   
Encoding:
BASIC Source File  |  1986-03-10  |  384 b   |  16 lines
  1. 1 REM WHITE.BAS is in MSX BASIC with MUSIC MACRO
  2. 2 REM commands for the Yamaha CX5-M music computer
  3. 10    _INIT:_INST(1)
  4. 20    X=RND(-TIME)
  5. 30    FOR X = 1 TO 25
  6. 35    REM notes in range of 25 to 120
  7. 40    N = INT(RND(1)*95)+25
  8. 45    REM lengths in range of 1 to 4
  9. 50    L = INT(RND(1)*4)+1
  10. 60    _PHRASE(1,"L=L;","N=N;")
  11. 70    NEXT X
  12. 80    _PLAY(1,1)
  13. 90    _WAIT(1)
  14. 100    INPUT"AGAIN";DD:GOTO 80
  15. to 4
  16. 5